home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / tcqbsnip.zip / WINDWBOX.BAS < prev    next >
BASIC Source File  |  1997-06-20  |  1KB  |  66 lines

  1. ' WINDWBOX.BAS
  2. ' by Tika Carr
  3. ' October 2, 1993
  4. '
  5. ' Purpose: Text based popup windows with shadows
  6.  
  7. DECLARE SUB WindowBox (ux!, uy!, lx!, ly!, bk!, fg!, sh!)
  8. DECLARE SUB Title (fgd!, bgd!, tl$, x!, y!)
  9.  
  10. 'Title Page
  11. COLOR , 7: CLS
  12.  
  13. 'Program Title
  14. 'Params: Foreground Color, Background Color, Title, x, y
  15. CALL Title(15, 1, "Window Boxes Example", 20, 1)
  16.  
  17. 'Window Box
  18. '
  19. 'Params: Upper Left x, Upper Left y, Lower Right x, Lower Right y
  20. '        Background Color, Foreground Color, Shadow Color
  21. CALL WindowBox(10, 5, 50, 16, 0, 10, 8)
  22.  
  23. 'Press any key to continue program
  24.  
  25. COLOR 17, 7
  26. LOCATE 25, 26: PRINT "Press Any Key To Continue.";
  27.  
  28. 'Reset Colors and Pause to see display (Alpha test)
  29. COLOR 7, 0
  30. Pause$ = INPUT$(1)
  31.  
  32. SUB Title (fgd, bgd, tl$, x, y)
  33. 'Make Title
  34. COLOR fgd, bgd: LOCATE y, x
  35. PRINT "░░▒▒▓▓██ "; tl$; " ██▓▓▒▒░░"
  36. END SUB
  37.  
  38. SUB WindowBox (ux, uy, lx, ly, bk, fg, sh)
  39. 'Information Box
  40.  
  41. 'Top
  42. COLOR fg, bk: LOCATE uy, ux
  43. PRINT CHR$(201); STRING$(lx - 1, 205); CHR$(187);    '╔═╗
  44.  
  45. 'Middle (where text goes)
  46. FOR bx = uy + 1 TO ly - 2
  47.   COLOR fg
  48.   LOCATE bx, ux
  49.   PRINT CHR$(186); SPACE$(lx - 1); CHR$(186);     '║
  50.   COLOR sh
  51.   PRINT CHR$(219)   'Shadow: █
  52. NEXT bx
  53.  
  54. 'Bottom
  55. COLOR fg
  56. LOCATE ly - 1, ux
  57. PRINT CHR$(200); STRING$(lx - 1, 205); CHR$(188);    '╚═╝
  58.  
  59. 'Shadow
  60. COLOR sh
  61. PRINT CHR$(219);  '█
  62. LOCATE ly, ux + 2
  63. PRINT STRING$(lx, 219)
  64. END SUB
  65.  
  66.